Info-Mac 3/Info_Mac_1994-01.iso/Applications/Fractal Generator/Maps/Koch

Text File | 1993-06-07 | 249b | 7 lines

: koch ( -- ) ( load maps to generate the Koch curve )
    0.333 0.0 0.0 0.333 0.0 0.0 0.25 1 set
    0.167 -0.288 0.288 0.167 0.333 0.0 0.25 2 set
    0.167 0.288 -0.288 0.167 0.5 0.288 0.25 3 set
    .333 0. 0. .333 .667 0. .25 4 set
    4 maps ;